10 POKE53280,0:POKE53281,10:POKE646,0:POKE53272,31
12 DV=PEEK(186):IFDV<8THENDV=8
20 :
30 REM  TITLE SCREEN
40 :
50 PRINT"[147][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223]";
60 PRINT"[223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][146]";
70 PRINT"[169][223]                                    [169][223]";
80 PRINT"[223][169][146]        [176][176][174][176][174][174][178][176][192][174][176] [174][176][178][174][176][192][174][174]        [169][223][146]";
90 PRINT"[169][223]        [221][221] [221][221][221][221][221]  [221] [221] [221] [221]           [169][223]";
100 PRINT"[223][169][146]        [171][177][174][221][221][221][221][221] [174][171][192][179] [221] [173][192][174]         [223][169][146]";
110 PRINT"[169][223]        [221] [221][221][221][221][221][221] [221][221] [221] [221]   [221]         [169][223]";
120 PRINT"[223][169][146]        [173] [189][173][173][189][177][173][192][189][173] [189] [177] [173][192][189]         [223][169][146]";
130 PRINT"[169][223]      [176][192][174][176][174][176][176][192][174][176] [174][176][192][174][176][174][174][176][192][174][176][192][174]      [169][223]";
140 PRINT"[223][169][146]      [221]   [221][221][221]  [221] [221][221] [221][221][221][221][221]  [221]        [223][169][146]";
150 PRINT"[169][223]      [171][192] [176][219][189][221]  [171][192][179][171][192][179][221][221][221][221] [174][171][192]       [169][223]";
160 PRINT"[223][169][146]      [221]  [221][221] [221]  [221] [221][221] [221][221][221][221][221] [221][221]        [223][169][146]";
170 PRINT"[169][223]      [173][192][189][189][173][189][173][192][189][173] [189][173] [189][173][173][189][173][192][189][173][192][189]      [169][223]";
180 PRINT"[223][169][146]        [176][192][192][174][176]  [174][176][192][192][174][176][192][192][174][176][192][192][174]        [223][169][146]";
190 PRINT"[169][223]        [221]   [171][192][192][179][171][192]  [173][192][192][174][173][192][192][174]        [169][223]";
200 PRINT"[223][169][146]        [173][192][192][189][173]  [189][173][192][192][189][173][192][192][189][173][192][192][189]        [223][169][146]";
210 PRINT"[169][223]         [176][192][174][176] [174][176][192][174][176][192][174][176]  [176][192][174]         [169][223]";
220 PRINT"[223][169][146]         [171][192][189][221] [221][176][192][189][176][192][189][221]  [171][192]          [223][169][146]";
230 PRINT"[169][223]         [173]  [173][192][189][173][192][189][173][192][189][173][192][189][173][192][189]         [169][223]";
240 PRINT"[223][169][146]                                    [223][169][146]";
250 PRINT"[169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223]";
260 PRINT"[223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169][223][169]";
270 FORI=1TO2:PRINT"                                        [146]";:NEXT
280 PRINT"                                       [157][148] "
290 TQ=0:POKE53370,0
292 TQ=TQ+1:GETA$:IFA$=""ANDTQ<200THEN292
294 POKE53371,0
298 GOSUB1290
300 :
310 REM  INSTRUCTION SCREEN
320 :
330 DV=PEEK(186):IFDV<8THENDV=8
332 POKE53281,10:POKE53280,0:S=53248
334 PRINT"[147][144] [212]O BEGIN, TWO WHITE KNIGHTS OCCUPY THE"
340 PRINT" UPPER CORNERS  WHILE TWO BLACK KNIGHTS"
350 PRINT" OCCUPY THE LOWER CORNERS OF A THREE BY"
360 PRINT" THREE SQUARE GAMEBOARD GRID."
370 PRINT"            [176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174]"
380 FORI=1TO3:PRINT"            [221]    [221]    [221]    [221]":NEXT
390 PRINT"            [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]"
400 FORI=1TO3:PRINT"            [221]    [221]    [221]    [221]":NEXT
410 PRINT"            [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]"
420 FORI=1TO3:PRINT"            [221]    [221]    [221]    [221]":NEXT
430 PRINT"            [173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189]"
440 PRINT" [212]HE OBJECTIVE IS  TO END THE GAME WITH"
450 PRINT" THE CORNER POSITIONS  OF THE WHITE AND"
460 PRINT" BLACK KNIGHTS EXCHANGED[144] USING ONLY THE"
470 PRINT" NINE CELLS AND THE KNIGHT'S CHESS MOVE.";
480 POKES+2,132:POKES+3,100:POKES+4,212:POKES+5,100
490 POKES+6,132:POKES+7,164:POKES+8,212:POKES+9,164
500 POKES+21,30:PRINT" [208]RESS ANY KEY TO BEGIN.";
510 GETA$:IFA$=""THEN510
512 POKES+21,0
520 :
530 REM  GAMEBOARD SCREEN
540 :
550 PRINT"[147]";:POKE53281,0:POKE53280,10:POKE646,10
560 PRINT"                      [146] [198][210][207][205] [212][207]  [198][210][207][205] [212][207]"
570 PRINT" [150] [176][192][192][192][192][178][192][192][192][192][178][192][192][192][192][174]    [146]"
580 PRINT" [150] [221]1   [150][146][221]2   [150][146][221]3   [150][146][221][146]    [146]"
590 FORI=1TO2: PRINT" [150] [221]    [150][146][221]    [150][146][221]    [150][146][221]    [146]":NEXT
600 PRINT" [150] [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]    [146]"
610 PRINT" [150] [221]4   [150][146][221]5   [150][146][221]6   [150][146][221]    [146]"
620 FORI=1TO2: PRINT" [150] [221]    [150][146][221]    [150][146][221]    [150][146][221]    [146]":NEXT
630 PRINT" [150] [171][192][192][192][192][219][192][192][192][192][219][192][192][192][192][179]    [146]"
640 PRINT" [150] [221]7   [150][146][221]8   [150][146][221]9   [150][146][221]    [146]"
650 FORI=1TO2: PRINT" [150] [221]    [150][146][221]    [150][146][221]    [150][146][221]    [146]":NEXT
660 PRINT" [150] [173][192][192][192][192][177][192][192][192][192][177][192][192][192][192][189]    [146]"
670 PRINT"                      [146]"
680 FORI=1TO2:PRINT"                      [146]":NEXT
690 FORI=1TO6:PRINT"                      [146]":NEXT
700 PRINT"                                        [146]";
710 PRINT"                                       [157][148] "
712 POKE214,15:PRINT:PRINT"[150]   [208]RESS [209] TO [209]UIT
720 :
730 [143]  SPRITE POSITIONING
740 :
750 S[178]53248:[151]S[170]2,52:[151]S[170]3,68:[151]S[170]4,132:[151]S[170]5,68
760 [151]S[170]6,52:[151]S[170]7,132:[151]S[170]8,132:[151]S[170]9,132
770 [151]S[170]21,30
780 :
790 [143]  SET VARIABLES
800 :
810 [134] T(16),F(16):M[178]1:MP[178]1088:S$[178]"                   "
820 [129]I[178]1[164]16:[135]N:F(I)[178][181](N[173]10):T(I)[178]N[171]10[172]F(I):[130]
830 P[178]1747:[141]1140:[153]"CONT(null)OVE (null)UMBER:"
840 P[178]1984:[141]1140:[153]"DEF  CHR$OAL: PEEK(null)ATNLEN(null) ON (null)OP   (null)LEFT$RIGHT$(null)VAL AT PEEKOTTOM"
850 [129]I[178]1[164]9:C(I)[178]0:[130]:C(1)[178]1:C(3)[178]2:C(7)[178]3:C(9)[178]4
860 [129]I[178]1[164]7[169]3:X(I)[178]52:X(I[170]1)[178]92:X(I[170]2)[178]132:[130]
870 [129]I[178]1[164]3:Y(I)[178]68:Y(I[170]3)[178]100:Y(I[170]6)[178]132:[130]
880 :
890 [143]  INPUT MOVE
900 :
910 P[178]1759:[141]1140:[153]""M
920 [151]198,0:P[178]1784:[141]1140:[153]S$;:P[178]1824:[141]1140:[153]S$;
930 P[178]1788:[141]1140:[153]"CONT(null)OVE ASCROM:  CMD";:[141]1210:F$[178]G$
940 F[178][197](F$):[139]F[179]1[176]F[177]9[167]1010
950 [151]198,0:P[178]1824:[141]1140:[153]S$;
960 P[178]1829:[141]1140:[153]"CONT(null)OVE (null)O:  CMD";:[141]1210:T$[178]G$
970 T[178][197](T$):[139]T[179]1[176]T[177]9[167]1010
980 [139]C(F)[178]0[176]C(T)[179][177]0[167]1010
990 [129]I[178]1[164]16:[139]F[178]F(I)[175]T[178]T(I)[167]1030
1000 [130]I
1010 P[178]1864:[141]1140:[153]" (null)OVE (null)OT (null)OSSIBLE!";:[129]I[178]1[164]2000:[130]
1020 [141]1140:[153]S$;:[137]920
1030 P[178]MP:[141]1140:[153]F" "T:M[178]M[170]1:MP[178]MP[170]40:[139]MP[178]1968[167]MP[178]1097
1040 [139]MP[178]1937[167]MP[178]1088:[141]1360
1050 :
1060 [143]  MOVE KNIGHT
1070 :
1080 [129]I[178]X(F)[164]X(T)[169]([180](X(T)[171]X(F))):[151]S[170]2[172]C(F),I:[130]
1090 [129]I[178]Y(F)[164]Y(T)[169]([180](Y(T)[171]Y(F))):[151]S[170]2[172]C(F)[170]1,I:[130]
1100 C(T)[178]C(F):C(F)[178]0:[141]1400:[137]910
1110 :
1120 [143]  CURSOR POSITION SUBROUTINE
1130 :
1140 P[178]P[171]1024:[153]"";:PY[178][181](P[173]40):PX[178]P[171]40[172]PY
1150 [139]PY[179][177]0[167][129]PP[178]1[164]PY:[153]"";:[130]
1160 [139]PX[179][177]0[167][129]PP[178]1[164]PX:[153]"";:[130]
1170 P[178]P[170]1024:[142]
1180 :
1190 [143]  GET SUBROUTINE
1200 :
1210 [151]198,0
1220 [151]204,0:[151]207,0
1230 [161]G$:[139]G$[178]""[167]1220
1240 [139]G$[178]"Q"[167][151]204,1:[137]1430
1250 [153]""G$:[151]204,1:[142]
1260 :
1270 [143]  SPRITE CREATION SUBROUTINE
1280 :
1290 S[178]53248:[129]I[178]0[164]62:[135]N:[151]832[170]I,N:[130]
1300 [151]2041,13:[151]2042,13:[151]2043,13:[151]2044,13
1310 [151]S[170]40,1:[151]S[170]41,1:[151]S[170]42,0:[151]S[170]43,0
1320 [142]
1330 :
1340 [143]  ERASE MOVES SUBROUTINE
1350 :
1360 P[178]1088:[129]I[178]1[164]22:[141]1140:[153]"               ":P[178]P[170]40:[130]:[142]
1370 :
1380 [143]  GAME CHECK SUBROUTINE
1390 :
1400 [139]C(1)[177]2[175]C(3)[177]2[175]C(7)[177]0[175]C(7)[179]3[175]C(9)[177]0[175]C(9)[179]3[167]1420
1410 [142]
1420 P[178]1784:[141]1140:[153]"SYS  LENONGRATULATIONS!"
1430 [151]214,19:[153]:[153]"CONT(1CONT) ATNGAIN  "
1432 [153]"(2CONT) (null)O (null)(null)ATN(null)(null)(null)
1440 POKE198,0
1442 GETA$:IFA$=""THEN1442
1444 IFA$="1"THENPOKES+21,0:RUN298
1446 IFA$="2"THENPOKES+21,0:GOTO4000
1470 :
1480 REM  SPRITE DATA
1490 :
1500 DATA 0,0,0,0,31,192,0,127,96,0,255,112,1,247,248,1,253,252,3,255,62,3
1510 DATA 255,154,3,255,204,3,255,192,1,255,192,1,255,128,0,255,0,0,255,0,0,255
1520 DATA 0,0,255,0,1,255,128,15,255,240,31,255,248,15,255,240,0,0,0
1530 DATA 16,18,27,29,34,38,43,49,61,67,72,76,81,83,92,94
4000 PRINT"[147]":POKE53281,0
4010 POKE214,12:PRINT:PRINTTAB(8)"[159][204]OADING [195][200][197][211][211] [209][213][193][210][212][207]"
4020 PRINT"[144] LOAD"CHR$(34)"B.CHESS QUARTO"CHR$(34)","DV
4030 PRINT" RUN"
4040 POKE631,13:POKE632,13:POKE198,2:END
10000 D=PEEK(186):N$="KNIGHTS EX":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END